home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / Applications / chipmunkbasic3.10 / gdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-12-20  |  333 b   |  13 lines  |  [TEXT/cBaS]
  1. 100 rem graphics demo
  2. 110 graphics 0
  3. 120 graphics color 100,0,0 : rem RGB red
  4. 130 graphics fillrect 50,50,200,150,9
  5. 150 graphics color 0,0,0 : rem black
  6. 160 graphics rect 10,10,300,220
  7. 180 sprite 1,10,10,128
  8. 190 for i = 1 to 200
  9. 200 sprite 1,10+i,10+i
  10. 210 t0 = timer : while timer-t0 < 0.05 : wend : rem slow down
  11. 220 next i
  12. 990 end
  13.